home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 November / macformat-030.iso / Shareware City / HyperCard / Incremental search 1.0 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1995-07-10  |  1.9 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3964</cardID>
  8.     <listID>2873</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on keyDown theKey
  17. global gSearch, gFoundCds
  18. if gSearch is true and the selectedLoc is empty then -- need "is true" when gSearch isn't initialized; the selectedLoc is not empty when insertion pt is in field
  19. put chartonum(theKey) into theNum
  20. if theNum >= 65 and theNum <= 122 then
  21. put theKey after the message box
  22. click at -1000,1000
  23.  
  24. find the message box
  25. if the result is not empty then answer quote & the message box & quote && "was not found."
  26. put the number of this card & "," after gFoundCds
  27.  
  28. else if theNum = 8 then --delete key
  29. delete the last item of gFoundCds
  30. go cd the last item of gFoundCds
  31. click at -1000,1000
  32. delete the last char of the message box
  33. if the message box is empty then exit keyDown
  34. find the message box
  35.  
  36. else if theNum = 13 or theNum = 101 then --ignore return and enter
  37. find the message box
  38. if the result is not empty then answer quote & the message box & quote && "was not found."
  39. put the number of this card & "," after gFoundCds
  40.  
  41.  
  42. else pass keyDown
  43. else pass keyDown
  44. end keyDown
  45.  
  46. on controlKey theKey
  47. global gSearch, gFoundCds
  48.  
  49. if theKey = 19 then --it's "s"
  50. if gSearch is not true then put true into gSearch -- need "is not true" when gSearch isn't initialized
  51. else put false into gSearch
  52. if not gSearch then put empty into gFoundCds
  53. else put empty into the message box
  54. end if
  55. pass controlKey
  56. end controlKey</script>
  57.     <background id="2607" file="background_2607.xml" name="" />
  58.     <card id="3964" file="card_3964.xml" marked="false" name="" owner="2607" />
  59. </stack>
  60.